﻿'Como fazíamos antes do VB 10 / Multi_Statement_Lambdas

Module Program_Antes
    Sub Main()
        Dim listaDeNomes = New List(Of String)()

        listaDeNomes.Add("Carlos")
        listaDeNomes.Add("Rita")
        listaDeNomes.Add("Marcos")
        listaDeNomes.Add("Joana")

        Dim nomesComALetraC = listaDeNomes.Where( _
            Function(n) n.ToLower().Contains("c")). _
            ToList()

        For Each nome In nomesComALetraC
            Console.WriteLine("Nome: {0}", nome)
        Next
    End Sub
End Module
